home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog113 < prev    next >
Text File  |  1995-06-29  |  863b  |  39 lines

  1.  
  2. xtAppInitialize -class Program
  3.  
  4. xmMainWindow .main managed -scrollBarDisplayPolicy as_needed \
  5.         -scrollingPolicy automatic
  6. # mainWindow .main
  7. xmLabel .main.label managed
  8.  
  9. # top menu bar
  10. xmMenuBar .main.menuBar managed
  11. xmCascadeButton .main.menuBar.file managed \
  12.     -labelString File \
  13.     -mnemonic F
  14.  
  15. # file pulldown
  16. xmPulldownMenu .main.menuBar.fileMenu \
  17.     -tearOffModel tear_off_enabled
  18. xmPushButton .main.menuBar.fileMenu.new managed \
  19.     -labelString "New..." \
  20.     -mnemonic N
  21. xmPushButton .main.menuBar.fileMenu.quit managed \
  22.      -labelString Quit \
  23.     -mnemonic Q
  24. xmSeparator .main.menuBar.fileMenu.bar1 managed
  25. xmPushButton .main.menuBar.fileMenu.quit2 managed \
  26.      -labelString Quit \
  27.     -mnemonic Q
  28. .main.menuBar.file setValues -subMenuId .main.menuBar.fileMenu
  29.  
  30.  
  31.  
  32. .main setValues -workWindow .main.label \
  33.         -menuBar .main.menuBar
  34.  
  35.  
  36. . realizeWidget
  37.  
  38. . mainLoop
  39.